R Notebook

library(plotly)
df <- read.csv("meninas.csv", stringsAsFactors=FALSE, sep=",")
df_bin <- read.csv("make_binary/meninasbin.csv", stringsAsFactors=FALSE, sep=";")

str(df)

'data.frame':   789 obs. of  18 variables:
 $ ID.Aluno                        : int  100060 100383 100955 101542 101565 101584 101585 101661 101709 102060 ...
 $ Sexo                            : logi  FALSE FALSE FALSE FALSE FALSE FALSE ...
 $ Data.de.Nascimento              : chr  "1983-12-31 00:00:00.000" "1977-08-24 00:00:00.000" "1985-09-23 00:00:00.000" "1986-10-23 00:00:00.000" ...
 $ UF.birth                        : chr  "DF" "RN" "DF" "RJ" ...
 $ Quota                           : chr  "Não" "Não" "Não" "Não" ...
 $ School.type                     : chr  "Não Informada" "Não Informada" "Não Informada" "Não Informada" ...
 $ Race                            : chr  "Não informado" "Não informado" "Não informado" "Branca                        " ...
 $ Course                          : chr  "Computer Science" "Computer Science" "Computer Licentiate" "Mechatronics Engineering" ...
 $ Option                          : chr  "Computer Science" "Computer Science" "Computer Licentiate" "Mechatronics Engineering" ...
 $ Entrance.UnB.period             : int  20032 20032 20041 20041 20041 20041 20041 20041 20041 20041 ...
 $ Entrance.option.period          : int  20032 20032 20041 20041 20041 20041 20041 20041 20041 20041 ...
 $ Entrance.option.form            : chr  "Vestibular                    " "Transferencia Obrigat�ria     " "Programa de Avaliação Seriada " "Programa de Avaliação Seriada " ...
 $ Leaving.option.period           : int  20081 20042 20082 20061 20081 20062 20082 20101 20081 20101 ...
 $ Leaving.option.form             : chr  "Graduated" "Drop out" "Graduated" "Drop out" ...
 $ Min.Graduation.Credits          : int  240 240 180 274 274 244 240 240 240 244 ...
 $ Total.Credits                   : int  240 6 168 68 151 272 238 236 180 130 ...
 $ Paid.in.credits                 : int  240 6 180 70 165 144 240 240 186 134 ...
 $ Créditos.a.integralizar.no.total: int  0 234 0 204 109 100 0 0 54 110 ...

str(df[, 4:14])

'data.frame':   789 obs. of  11 variables:
 $ UF.birth              : chr  "DF" "RN" "DF" "RJ" ...
 $ Quota                 : chr  "Não" "Não" "Não" "Não" ...
 $ School.type           : chr  "Não Informada" "Não Informada" "Não Informada" "Não Informada" ...
 $ Race                  : chr  "Não informado" "Não informado" "Não informado" "Branca                        " ...
 $ Course                : chr  "Computer Science" "Computer Science" "Computer Licentiate" "Mechatronics Engineering" ...
 $ Option                : chr  "Computer Science" "Computer Science" "Computer Licentiate" "Mechatronics Engineering" ...
 $ Entrance.UnB.period   : int  20032 20032 20041 20041 20041 20041 20041 20041 20041 20041 ...
 $ Entrance.option.period: int  20032 20032 20041 20041 20041 20041 20041 20041 20041 20041 ...
 $ Entrance.option.form  : chr  "Vestibular                    " "Transferencia Obrigat�ria     " "Programa de Avaliação Seriada " "Programa de Avaliação Seriada " ...
 $ Leaving.option.period : int  20081 20042 20082 20061 20081 20062 20082 20101 20081 20101 ...
 $ Leaving.option.form   : chr  "Graduated" "Drop out" "Graduated" "Drop out" ...

library(cdparcoord)
df_aux = df %>%
  select(Course, Option, Min.Graduation.Credits, UF.birth)
df_aux <- makeFactor(df_aux,c('Min.Graduation.Credits'))
#df_aux <- makeFactor(df_aux,c('Período.de.saída.da.opção','Periodo.de.Ingresso.na.Unb','Periodo.de.ingresso.na.opção'))
#pe25disc <- discretize(df_aux,nlevels=5)  
discparcoord(df_aux,k=1000)

library(cdparcoord)
df_aux = df %>%
  select(Leaving.option.period, Leaving.option.form)
  #filter((Leaving.option.period >= 19920 & Leaving.option.period < 19951) | (Leaving.option.period > 20010 & Leaving.option.period < 20161))
df_aux <- makeFactor(df_aux,c('Leaving.option.period'))
#df_aux <- makeFactor(df_aux,c('Período.de.saída.da.opção','Periodo.de.Ingresso.na.Unb','Periodo.de.ingresso.na.opção'))
#pe25disc <- discretize(df_aux,nlevels=5)  
discparcoord(df_aux,k=1000)

library(cdparcoord)
df_aux = df %>%
  select(Leaving.option.period, Leaving.option.form, Entrance.UnB.period, Entrance.option.period)
df_aux <- makeFactor(df_aux,c('Leaving.option.period', 'Entrance.UnB.period', 'Entrance.option.period'))
#df_aux <- makeFactor(df_aux,c('Período.de.saída.da.opção','Entrance.UnB.period','Entrance.option.period'))
#pe25disc <- discretize(df_aux,nlevels=5)  
discparcoord(df_aux,k=1000)

library(cdparcoord)
df_aux = df %>%
  select(School.type, Entrance.option.period, Quota, Race)
df_aux <- makeFactor(df_aux,c('Entrance.option.period'))
#pe25disc <- discretize(df_aux,nlevels=5)  
discparcoord(df_aux,k=1000)

library(cdparcoord)
df_aux = df %>%
  select(Entrance.option.form, Total.Credits, Paid.in.credits)
#df_aux <- makeFactor(df_aux,c('Créditos.integralizados.no.total', 'Créditos.cursados.no.total'))
#pe25disc <- discretize(df_aux,nlevels=5)  
discparcoord(df_aux,k=1000)